(set-face-attribute): Fix handling of :family "FOUNDRY-FAMILY".

diff --git a/lisp/faces.el b/lisp/faces.el
index 778a363b17039ac9705f2db7f2b637d616c7e053..57d6bd7dcb35c88aa282c9e60e653d9812692ba0 100644 (file)
--- a/lisp/faces.el
+++ b/lisp/faces.el
@@ -725,8 +725,8 @@ like an underlying face would be, with higher priority than underlying faces."
       (when (and (stringp family)
                 (string-match "\\([^-]*\\)-\\([^-]*\\)" family))
        (unless foundry
-         (setq foundry (match-string 2 family)))
-       (setq family (match-string 1 family)))
+         (setq foundry (match-string 1 family)))
+       (setq family (match-string 2 family)))
       (when (stringp family)
        (internal-set-lisp-face-attribute face :family (purecopy family)
                                          where))